﻿Imports Persistencia
Public Class ctrRegioes

#Region "Variáveis"
    Private objRegiao As New perRegiao
#End Region

#Region "Enumerações"
    Public Enum eColunasTabela As Int32
        COD_REGIAO = 0
        DESC_REGIAO = 1
    End Enum
#End Region

    Public Function retornarDatRegioes() As DataTable
        Dim datRegiao As New DataTable

        With datRegiao
            .Columns.Add("codRegiao", GetType(Integer))
            .Columns.Add("Regiao", GetType(String))

            .TableName = "Regioes"

        End With

        Return datRegiao

    End Function

    Public Function retornarRegiaoProposta(ByVal iCodProposta As Int32, ByVal iRevisao As Int32) As DataTable

        Try

            Return Me.objRegiao.retornarRegiaoProposta(iCodProposta, iRevisao)

        Catch ex As Exception

            Throw New Exception("Ocorreu um erro no método retornarRegiaoProposta." & _
                                Environment.NewLine & ex.Message)

        End Try

    End Function


End Class
